home *** CD-ROM | disk | FTP | other *** search
/ PCGUIA 2010 Software/Programs / PCGuia_programas.iso / Software / Utils / Universal Viewer / UniversalViewer.exe / Plugins / Syn2 / HL / HyperlinkExtractor.lcf < prev    next >
Encoding:
Text File  |  2007-12-12  |  2.3 KB  |  76 lines
  1. object SyntAnal31: TLibSyntAnalyzer
  2.   Formats = <
  3.     item
  4.       DisplayName = 'Default'
  5.       Font.Charset = DEFAULT_CHARSET
  6.       Font.Color = clWindowText
  7.       Font.Height = -13
  8.       Font.Name = 'Courier New'
  9.       Font.Style = []
  10.       FormatType = ftCustomFont
  11.     end
  12.     item
  13.       DisplayName = 'Marked block'
  14.       Font.Charset = DEFAULT_CHARSET
  15.       Font.Color = clHighlightText
  16.       Font.Height = -13
  17.       Font.Name = 'Courier New'
  18.       Font.Style = []
  19.       BgColor = clHighlight
  20.       FormatType = ftColor
  21.     end
  22.     item
  23.       DisplayName = 'Hyperlink'
  24.       Font.Charset = DEFAULT_CHARSET
  25.       Font.Color = clFuchsia
  26.       Font.Height = -13
  27.       Font.Name = 'Courier New'
  28.       Font.Style = [fsUnderline]
  29.     end>
  30.   TokenRules = <
  31.     item
  32.       DisplayName = 'http or ftp link'
  33.       StyleName = 'Hyperlink'
  34.       TokenType = 1
  35.       Expression = 
  36.         '(?i) '#13#10'# Protocol'#13#10'(http|ftp)://  '#13#10'# TCP addr or domain name'#13#10'[' +
  37.         '\w\d\-]+(\.[\w\d\-]+)+'#13#10'# port number'#13#10'(:\d\d?\d?\d?\d?)?'#13#10'# uni' +
  38.         'x path'#13#10'(((/[%+\w\d\-\\\.]*)+)*)'#13#10'# request (GET) params'#13#10'(\?[^\' +
  39.         's=&"]+=[^\s=&"]+(&[^\s=&"]+=[^\s=&"]+)*)?'#13#10'# bookmark'#13#10'(\#[\w\d\' +
  40.         '-%+]+)?'
  41.       ColumnFrom = 0
  42.       ColumnTo = 0
  43.     end
  44.     item
  45.       DisplayName = 'www....'
  46.       Enabled = False
  47.       Expression = 
  48.         '(?i) '#13#10'# TCP addr or domain name'#13#10'www(\.[\w\d\-]+)+'#13#10'# port numb' +
  49.         'er'#13#10'(:\d\d?\d?\d?\d?)?'#13#10'# unix path'#13#10'(((/[%+\w\d\-\\\.]*)+)*)'#13#10'#' +
  50.         ' request (GET) params'#13#10'(\?[^\s=&]+=[^\s=&]+(&[^\s=&]+=[^\s=&]+)*' +
  51.         ')?'#13#10'# bookmark'#13#10'(\#[\w\d\-%+]+)?'
  52.       ColumnFrom = 0
  53.       ColumnTo = 0
  54.     end
  55.     item
  56.       DisplayName = 'mail'
  57.       StyleName = 'Hyperlink'
  58.       TokenType = 1
  59.       Expression = 
  60.         '(?i)'#13#10'# e-mail name'#13#10'[_a-z\d\-\.]+@'#13#10'# domane name'#13#10'[_a-z\d\-]+(' +
  61.         '\.[_a-z\d\-]+)+'
  62.       ColumnFrom = 0
  63.       ColumnTo = 0
  64.     end>
  65.   BlockRules = <>
  66.   CodeTemplates = <>
  67.   SubAnalyzers = <>
  68.   TokenTypeNames.Strings = (
  69.     'Unknown'
  70.     'Hyperlink')
  71.   MarkedBlockStyle = 'Marked block'
  72.   DefaultStyleName = 'Default'
  73.   LexerName = 'Hyperlink extractor'
  74.   Internal = True
  75. end
  76.